Option Explicit
Sub A_Sample064()
    Dim myWd As Window
    Set myWd = ActiveWindow
    'Set myWd = ActiveWorkbook.Windows(1)	'QActiveWorkbook
    'Set myWd = Application.Windows(1)		'QApplication
    MsgBox myWd.Caption
    Set myWd = Nothing	'
End Sub
